perm filename FACT[P,JRA]1 blob sn#155765 filedate 1975-04-24 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE FACT(X)(COND((ZEROP X)1)(T(TIMES X(FACT (SUB1 X]
C00003 ENDMK
CāŠ—;
(DE FACT(X)(COND((ZEROP X)1)(T(TIMES X(FACT (SUB1 X]